home *** CD-ROM | disk | FTP | other *** search
- /* $VER: 2.6 for DoSound V2.6
- */
- options results;call busy;List_InsertSingle=0x804254d5;Application_OpenConfigWindow=0x804299ba;MUIA_List_Format=0x80423c0a;Draggable=0x80420b6e;Dropable=0x8042fbce;Group_Columns=0x8042f416;Listview_DragType=0x80425cd3;Listview_MultiSelect=0x80427e08;List_DragSortable=0x80426099;List_Format=0x0423c0a;List_ShowDropMarks=0x8042c6f3;List_active=0x8042391c;List_InsertPosition=0x8042d0cd;List_Quiet=0x8942d8c7;Menu_Enabled=0x8042ed48;Menuitem_Checked=0x8042562a;Menuitem_Checkit=0x80425ace;Menuitem_Toggle=0x80424d5c;Menuitem_Shortcut=0x80422030;Menuitem_Title=0x804218be;Weight=0x80421d1f;String_Format=0x80427484;TRUE=1;FALSE=0;Listview_DragType_Immediate=1;Listview_MultiSelect_Shifted=2;List_GetEntry_Active=-1;List_Insert_Active=-1;List_Insert_Bottom=-3;List_Insert_Top=0;b=d2c('02');comerc=" ~~With " b||DoSound||b " v2.6~~";call listWaves;address BUILD;window ID WSLST TITLE '"DoSound V2.6"' port build;menu LABEL "Project";menu LABEL "DoGetSound";item COMMAND '"Dogetsound.amirx"' LABEL ""GO"";item COMMAND '"getsfile.amirx %s"' LABEL ""STOP"";endmenu;item COMMAND '"getsfile.amirx %s"' LABEL ""refresh"";item COMMAND '"getsfile.amirx %s"' LABEL ""operator"";item COMMAND '"getsfile.amirx %s"' LABEL ""Pplay"";item COMMAND '"getsfile.amirx %s"' LABEL ""NetPlay"";item COMMAND '"getsfile.amirx %s"' LABEL ""NickPlay"";menu LABEL "Settings";item COMMAND '"getsfile.amirx %s"' LABEL ""Program_Settings"";item COMMAND '"getsfile.amirx %s"' LABEL ""Organizer"";item COMMAND '"getsfile.amirx %s"' LABEL ""Instant_Play_Text"";item COMMAND '"method 'Application_OpenConfigWindow'"' PORT BUILD LABEL "MUI...";endmenu;item ATTRS Menuitem_Title '-1';item ATTRS Menuitem_Title "-1";item COMMAND '"getsfile.amirx %s"' LABEL "Exit";endmenu;group REGISTER LABELS labs;do r=1 to pag;group;list ID LT||r COMMAND '"getsfile.amirx %s"' TITLE '"\033uWav List,\033uSize "' ATTRS muia_List_Format '"D=30 MIW=25,MIW=25"';endgroup;end;endgroup;endwindow;call open('sfile','ram:soundfile','r');scnt=0;do while ~eof('sfile');parse value readln('sfile') with stuff ":" name ":" len ":" com;if com="" then com=1;if com>pag then com=1;strng=name","len;index=right(com,1);if name ~="" then list ID LT||index INSERT POS List_Insert_Bottom STRING strng;scnt=scnt+1;end;call close('sfile');call setenv(sct,scnt);call busyend;address command 'rx dogetsound.amirx';exit;listWaves:;address command "list sounds: p=#?.wav lformat=%p%n:%l:%c >ram:wavs quick";address command "sort ram:wavs ram:soundfile";if exists('ram:env/dosound.config') then;do;call read;call close(cfile);if pag="" then call make2;return;end;else;do;call make;return;end;read:;do;call open(cfile,'ram:env/dosound.config','r');parse value readln(cfile) with ag","as","mxg","smx;parse value readln(cfile) with pag;if pag="" then return;call setclip(pgs,pag);labs="";do i=1 to pag;parse value readln(cfile) with LS.i;if LS.i="" then LS.i=Wavs;labs=labs||LS.i",";end;parse value readln(cfile) with temps;if temps="" then temps='ram:tempsound';call setclip(tem,temps);parse value readln(cfile) with comercial;if comercial="" then comercial=" on <AMIGA> ";call setclip(com1,comercial);call setclip(com,comerc);end;call close(cfile);return;return;busy:;address build;window ID BSY port build;group;group;text LABEL '"DoSound is busy. Please wait."';endgroup;group HORIZ;object CLASS '"Busy.mcc"';endgroup;endgroup;endwindow;return;busyend:;address build;window ID BSY CLOSE;return;make:;ag=OFF;as=ON;mxg=1500;smx=4000;call make2;return;make2:;pag=1;LS.i=Wavs;labs=Wavs;temps="Ram:Tempsound";call setclip(tem,temps);comercial=" on <AMIGA> ";call setclip(com1,comercial);call setclip(com,comerc);call open(cfile,'ram:env/dosound.config','w');call writeln(cfile,ag","as","mxg","smx);call close(cfile);call open('cfile','ram:env/dosound.config','a');call writeln('cfile',pag);call writeln('cfile',LS.i);call writeln('cfile',temps);call writeln('cfile',comercial);call close('cfile');return
